%%EndDocument


%%BeginDocument: Texture


imageit


im


defineimagearray


dia


gofillit


gofillit end grestore


fillpath


fp end grestore


BeachHead/_doTexturePat true put


P3_d/_doTexturePat true put


tr aload pop pop pop neg exch neg exch translate


1 -1 scale 0 ph translate


/ph exch def



/fsa[

/tp[

/tr[

]def


end


userdict begin P3_d end begin